home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / yam_i_dodatki / yam-list-1.0.lha / list.rexx < prev    next >
OS/2 REXX Batch file  |  1996-12-31  |  1KB  |  33 lines
  1. /*
  2. ** $VER: list.rexx 1.0 (12.30.96)
  3. **
  4. ** Written by Peter Greci <midgard@nycmetro.com>
  5. **
  6. ** It scans the incoming folder for messages with the subject
  7. ** "Subscribe" and adds the sender to the list.
  8. **/
  9.  
  10. OPTIONS RESULTS
  11. ADDRESS YAM
  12. SetFolder 0                                  /* go to Incoming folder  */
  13. GetFolderInfo MAX; entries = RESULT          /* get number of mail    */
  14. DO i=0 TO entries-1                          /* scan all mail         */
  15.   SetMail i                                  /* set topical mail      */
  16.   GetMailInfo SUBJECT                        /* ask for subject       */
  17.   IF RESULT = 'list' THEN DO                 /* criteria accomplished */
  18.     GetMailInfo FROM                         /* ask for sender and    */
  19.     ret=RESULT                               /* save as variable ret  */
  20.     mailarchive 3
  21.     mailwrite                                /* Sends the list of     */
  22.     writemailto ret                          /* users to those who    */
  23.     writesubject 'Users-List'                /* who request it        */
  24.     writeletter 'listserv:list'
  25.     writequeue
  26.     mailsendall
  27.     setfolder 3
  28.     maildelete
  29.     setfolder 0
  30.   END
  31. END
  32. exit
  33.